
     L_CAM = 1 
     L_ECHAM = 1
     L_GAMIL = 1 

  if (vmod.eq."cam") 
     L_CAM = 0
  end if

  if (vmod.eq."echam") 
     L_ECHAM = 0
  end if

  if (vmod.eq."gamil") 
     L_GAMIL = 0
  end if

  L_debug = 1


